﻿Namespace SRAGWM
    Public Class MapAtributes

        Dim _Rng As Object
        Dim _Width, _Height As Integer

        Public Property Rng() As Object
            Get
                Return _Rng
            End Get
            Set(ByVal value As Object)
                _Rng = value
            End Set
        End Property

        Public Property Width() As Integer
            Get
                Return _Width
            End Get
            Set(ByVal value As Integer)
                _Width = value
            End Set
        End Property

        Public Property Height() As Integer
            Get
                Return _Height
            End Get
            Set(ByVal value As Integer)
                _Height = value
            End Set
        End Property

        Public Sub New(ByVal pRng As Object, ByVal pWidth As Integer, ByVal pHeight As Integer)

            _Rng = pRng
            _Width = pWidth
            _Height = pHeight

        End Sub
    End Class
End Namespace